home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / BIGREC.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  68 lines
  1.                                         (* Chapter 11 - Program 2 *)
  2. MODULE BigRec;
  3.  
  4. FROM InOut   IMPORT WriteString, Write, WriteLn;
  5.  
  6. CONST  NumberOfFriends = 50;
  7.  
  8. TYPE   FullName = RECORD
  9.          FirstName : ARRAY[0..12] OF CHAR;
  10.          Initial   : CHAR;
  11.          LastName  : ARRAY[0..15] OF CHAR;
  12.        END;
  13.  
  14.        Date = RECORD
  15.          Day, Month, Year : CARDINAL;
  16.        END;
  17.  
  18.        Person = RECORD
  19.          Name     : FullName;
  20.          City     : ARRAY[0..15] OF CHAR;
  21.          State    : ARRAY[0..3] OF CHAR;
  22.          BirthDay : Date;
  23.        END;
  24.  
  25. VAR   Friend             : ARRAY[1..NumberOfFriends] OF Person;
  26.       Self,Mother,Father : Person;
  27.       Index              : CARDINAL;
  28.  
  29. BEGIN  (* Main Program *)
  30.    Self.Name.FirstName := "Charley";
  31.    Self.Name.Initial := 'Z';
  32.    Self.Name.LastName := "Brown";
  33.  
  34.    WITH Self DO
  35.       City := "Anywhere";
  36.       State := "CA";
  37.       BirthDay.Day := 17;
  38.       WITH BirthDay DO
  39.          Month := 7;
  40.          Year := 1938;
  41.       END;
  42.    END;   (* All data for Self now defined *)
  43.  
  44.    Mother := Self;
  45.    Father := Mother;
  46.  
  47.    FOR Index := 1 TO NumberOfFriends DO
  48.       Friend[Index] := Mother;
  49.    END;
  50.  
  51.    WriteString(Friend[27].Name.FirstName);
  52.    WriteString(' ');
  53.    Write(Friend[33].Name.Initial);
  54.    WriteString(' ');
  55.    WriteString(Father.Name.LastName);
  56.    WriteLn;
  57. END BigRec.
  58.  
  59.  
  60.  
  61.  
  62. (* Result of execution
  63.  
  64. Charley Z Brown
  65.  
  66. *)
  67.  
  68.